home *** CD-ROM | disk | FTP | other *** search
/ Animation How-To / Animation How-to CD.iso / PLY / CHAPTER2 / DICE / DICE4.PI < prev    next >
Text File  |  1994-01-01  |  3KB  |  100 lines
  1. // DICE4.PI
  2.  
  3. // Extreme Texture for simple die
  4.  
  5. start_frame 0
  6. end_frame 359
  7. total_frames 360
  8.  
  9. outfile "dice4"
  10.  
  11. define pi 3.14159
  12. define rad pi/180
  13.  
  14. define ang frame * rad
  15.  
  16. define vx 9 * (SIN(ang) + SIN(3 * ang) / 3)
  17. define vy 9 * (COS(ang) - COS(3 * ang) / 3)
  18. define vz 9 * COS(2 * ang)
  19.  
  20. viewpoint {
  21.    from <vx,vy,vz>
  22.    at <0,-1,0>
  23.    up <0,1,0>
  24.    angle 45
  25.    resolution 320,240
  26.    aspect 1.333
  27.    }
  28. background MidnightBlue
  29.  
  30. include "\ply\colors.inc"
  31.  
  32. spot_light  white, <-10+vx,vy,2*vz>,<0,0,0>,3,5,20
  33. spot_light  white, < 10+vx,vy,2*vz>,<0,0,0>,3,5,20
  34. define reflective_black texture { reflective { color dark_slate_gray } }
  35.  
  36. define blue_buzz
  37. texture {
  38.    noise surface {
  39.       color white
  40.       position_fn 4
  41.       lookup_fn 1
  42.       octaves 4
  43.       turbulence 3
  44.       ambient 0.2
  45.       diffuse 0.6
  46.       specular 0.3
  47.       microfacet Reitz 5
  48.       color_map(
  49.         [0.000, 0.600, <0.100,0.000,0.740>, <0.100,0.000,0.740>]
  50.         [0.600, 0.860, <0.100,0.000,0.740>, <0.400,0.700,1.000>] 
  51.         [0.860, 0.920, <0.400,0.700,1.000>, <3.000,1.500,0.000>]
  52.         [0.920, 0.970, <3.000,3.000,0.000>, <3.000,3.000,0.000>]
  53.         [0.970, 1.000, <3.000,1.500,0.100>, <0.100,0.000,0.740>])
  54.    }
  55.    scale <0.5,0.5,0.5>
  56. }
  57.  
  58. define die1
  59.    object { 
  60.       object {box <-2,-2,-2>,<2,2,2> blue_buzz}
  61.    //1
  62.     - object {sphere < 0, 0,-2>, 0.4 reflective_black }
  63.    //2
  64.     - object {sphere <-2,-1,-1>, 0.4 reflective_black }
  65.     - object {sphere <-2, 1, 1>, 0.4 reflective_black }
  66.    //3
  67.     - object {sphere <-1,-2,-1>, 0.4 reflective_black }
  68.     - object {sphere < 0,-2, 0>, 0.4 reflective_black }
  69.     - object {sphere < 1,-2, 1>, 0.4 reflective_black }
  70.    //4
  71.     - object {sphere <-1, 2,-1>, 0.4 reflective_black }
  72.     - object {sphere < 1, 2,-1>, 0.4 reflective_black }
  73.     - object {sphere <-1, 2, 1>, 0.4 reflective_black }
  74.     - object {sphere < 1, 2, 1>, 0.4 reflective_black }
  75.    //5
  76.     - object {sphere < 2, 0, 0>, 0.4 reflective_black }
  77.     - object {sphere < 2,-1,-1>, 0.4 reflective_black }
  78.     - object {sphere < 2, 1, 1>, 0.4 reflective_black }
  79.     - object {sphere < 2,-1, 1>, 0.4 reflective_black }
  80.     - object {sphere < 2, 1,-1>, 0.4 reflective_black }
  81.    //6
  82.     - object {sphere <-1, 1, 2>, 0.4 reflective_black }
  83.     - object {sphere < 0, 1, 2>, 0.4 reflective_black }
  84.     - object {sphere < 1, 1, 2>, 0.4 reflective_black }
  85.     - object {sphere <-1,-1, 2>, 0.4 reflective_black }
  86.     - object {sphere < 0,-1, 2>, 0.4 reflective_black }
  87.     - object {sphere < 1,-1, 2>, 0.4 reflective_black }
  88. }
  89.  
  90. define dice
  91. object {
  92.    die1 
  93.  * object { sphere < 0, 0, 0>, 2.85 shiny_coral}
  94. }
  95.  
  96. dice 
  97.  
  98. define shiny_white texture { shiny { color white } }
  99. include "marker.inc"
  100.